0 OPEN1,8,15,"I":CLOSE1
10 ID$=" MORX OVERSEAS-------- ONLINE WITH THE TREND! --------":DO$="B"
20 NA$="OVERSEAS-MORX'91"
30 PRINT"HEADER CHANGE BY MORX 1991"
40 PRINT"PRESS SPACE TO CHANGE"
50 POKE198,0:WAIT198,1
999 REM -------------------------------
1000 REM BLOCK-WRITE (NA$+ID$)
1010 OPEN1,8,15,"I"
1015 GET#1,A$:IFA$<>"0"THENCLOSE1:GOTO10
1020 OPEN2,8,2,"#"
1030 PRINT#1,"U1 2 0 18 0"
1040 PRINT#1,"B-P 2 144"
1050 PRINT#2,NA$;
1060 PRINT#1,"B-P 2 162"
1070 PRINT#2,ID$;
1071 PRINT#1,"B-P 2 2"
1072 PRINT#2,DO$;
1080 PRINT#1,"M-W"CHR$(1)CHR$(1)CHR$(1);"A"
1090 PRINT#1,"U2 2 0 18 0"
1100 SA$="":GOSUB1120  :REM STATUS
1110 CLOSE2:CLOSE1:RETURN
1120 GET#1,A$:IFA$<>CHR$(13)THENSA$=SA$+A$:GOTO1120
1130 PRINT:SA$="[157][157][157][157][157][157][157]STATUS:"+SA$:PRINTTAB((40-LEN(SA$)+1)/2);SA$
2000 RUN